10 POKE53281,11:POKE53280,6
20 PRINT"[147] ";:FORI=1TO38:PRINT"[154] ";:NEXT:PRINT:PRINT"[145]"
30 FORI=1TO21:PRINT"  [146]                                     [146]":NEXT
40 PRINT" ";:FORI=1TO38:PRINT" ";:NEXT
50 PRINT""
60 PRINT"   S P E C I A L  E F F E C T S"
70 PRINT"[153][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
80 PRINT"[145][145] WRITTEN AND COMPILED BY  [159]DIGIDAN"
90 PRINT"[158] 1[146]  SUPER CURSOR"
100 PRINT" 2[146]  FROG CROAKS"
110 PRINT" 3[146]  OCEAN SOUND"
120 PRINT" 4[146]  SCREEN TRICK"
130 PRINT" 5[146]  COMPU-QUAKE"
140 PRINT" 6[146]  ROLLIN' WAVES"
150 PRINT" 7[146]  FADE IN/OUT"
151 PRINT" 8[146]  SCREEN TRICK II"
152 PRINT" 9[146]  KLAWRETAW"
153 PRINT" 10[146] FORTUNE TELLER"
154 PRINT" 11[146] CRAZY"
155 PRINT" 12[146] ESP"
700 PRINT"WHICH NUMBER";:INPUTN
710 IF N=1 THEN 800
720 IF N=2 THEN 850
730 IF N=3 THEN 900
740 IF N=4 THEN 950
750 IF N=5 THEN 1000
760 IF N=6 THEN 1050
770 IF N=7 THEN 1100
780 IF N=8 THEN 1150
782 IF N=9 THEN 1200
783 IF N=10 THEN 1250
784 IF N=11 THEN 1300
785 IF N=12 THEN 1350
799 IF N<1ORN>20THEN10
800 PRINT"[147]S U P E R  C U R S O R"
810 PRINT"WOULD YOU LIKE TO SEE A:"
815 PRINT"[158]A[146] SUPER FAST":PRINT"[158]B[146] SUPER SLOW"
820 PRINT"CURSOR?"
822 GETA$:IFA$="A"THEN POKE56325,0
824 IF A$=""THEN822
826 IF A$="B"THEN POKE56325,255
830 PRINT"WOW! PRESS RETURN TO GET TO MENU":POKE19,65:INPUT"";A$
840 POKE56325,58:POKE19,0:GOTO10
850 PRINT"[147]F R O G  C R O A K S"
860 PRINT""
861 PRINT"                  [169][146][215][215][223][146]"
862 PRINT"                   [192][192]  [146]"
863 PRINT"                 [221]    [221] [146]"
864 PRINT"                [223][221]    [221][146][169]"
865 PRINT"                [184][183] [163][163] [183][184]"
866 PRINT"PRESS ANY KEY TO RETURN TO MENU":D=16:A=54272:POKEA+24,15:POKEA+6,0
867 POKE A+1,100:POKEA+5,2
868 GETA$:IFA$<>""THEN10
869 IF(PEEK(162)ANDD)=DTHENPOKEA+4,33:PRINT"   "
870 POKEA+4,0:PRINT"[192][192]":GOTO868
900 PRINT"[147]O C E A N  S O U N D S"
910 PRINT"PRESS ANY KEY TO RETURN TO MENU"
920 PRINT"BEFORE YOU GET A SUNBURN"
922 V=54272:POKEV+6,240:POKEV+4,129:POKEV+1,34:POKEV,75
924 FORA=1TO15:POKEV+24,A:FORD=1TO50:NEXT:NEXT
926 FORB=15TO1STEP-1:POKEV+24,B:FORD=1TO200:NEXT:NEXT
928 FORD=1TO600+1200*RND(0):NEXT
930 GETA$:IFA$<>""THENPOKE54273,0:GOTO10
940 GOTO 922
950 PRINT"[147]S C R E E N  T R I C K"
960 PRINT"PRESS ANY KEY TO RETURN TO MENU":FORI=1TO1000:NEXT:POKE53296,1
970 POKE53280,0:POKE53281,6:GETA$:POKE53280,6:POKE53281,0:IFA$<>""THEN985
980 GOTO970
985 POKE53296,0:GOTO10
1000 PRINT"[147]   C O M P U - Q U A K E"
1010 PRINT"   PRESS ANY KEY TO RETURN TO MENU"
1020 X=INT(RND(1)*7+1)+20:Y=INT(RND(1)*7+1)+20
1030 POKE53265,X:POKE53270,Y:GETA$
1040 IF A$<>""THENPOKE53265,27:POKE53270,200:GOTO10
1045 GOTO 1020
1050 PRINT"[147]R O L L I N '  W A V E S"
1060 PRINT"PRESS ANY KEY TO START -"
1070 PRINT"THEN PRESS ANY KEY TO RETURN TO MENU"
1080 GETA$:IFA$=""THEN1080
1090 POKE53281,6:PRINT"[183][196][192][210][192][196][183]";:GETA$:IFA$=""THEN1090
1091 GOTO 10
1100 PRINT"[147]F A D E  I N / O U T"
1102 PRINT"PRESS ANY KEY TO RETURN TO MENU"
1104 A$="              FADE EXAMPLE   ":POKE53281,0
1106 B$(1)="[151]":B$(2)="[152]":B$(3)="[155]":B$(4)="":B$(5)="[155]":B$(6)="[152]"
1107 B$(7)="[155]":B$(8)="[144]":FORI=1TO8:PRINT"";B$(I);A$:FORT=1TO100:NEXT:NEXT
1108 GETZ$:IFZ$<>""THEN10
1109 FORY=1TO500:NEXT:GOTO1106
1150 PRINT"[147]S C R E E N  T R I C K  I I"
1152 PRINT"PRESS ANY KEY TO RETURN TO MENU"
1153 PRINT"PRESS SHIFT/LOCK TO REVERSE DIRECTION"
1156 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN 1170
1158 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
1160 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
1162 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
1164 FORI=1TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
1166 GOTO 1156
1170 GOTO 10
1200 PRINT"[147]K L A W R E T A W"
1202 PRINT"PRESS ANY KEY TO RETURN TO MENU"
1204 A$="KLAWRETAW":FORA=9TO5STEP-1:B$=B$+MID$(A$,A,1):NEXT:B$=B$+B$+B$+B$
1206 FORA=4TO1STEP-1:C$=C$+MID$(A$,A,1):NEXT
1208 PRINT"[158]"CHR$(17)B$B$:FORJ=1TO35:PRINT""TAB(J)C$;:FORK=1TO5
1210 GETF$:IFF$<>""THEN 10
1212 PRINTCHR$(157):NEXT:PRINTTAB(J-1)CHR$(145)" ":FORL=1TO100:NEXT:NEXT
1214 GOTO 1208
1250 PRINT"[147]F O R T U N E  T E L L E R"
1252 PRINT"PRESS ANY KEY TO RETURN TO MENU"
1254 FORN=1TO10:READA$(N),B$(N),C$(N),D$(N):NEXT:S$=CHR$(32)
1256 DEFFNA(X)=INT(RND(0)*10+1)
1258 A=FNA(X):B=FNA(X):C=FNA(X):D=FNA(X)
1260 PRINT "[159]";S$A$(A)S$B$(B)S$C$(C)S$D$(D)
1262 DATA THEY,WILL,FIND,HER,HE,WON'T,EXPOSE,PLANS
1264 DATA RIVAL,DID,IGNORE,CONSEQUENCES,STRANGER,MIGHT,LOVE,YOU
1266 DATA SHE,MIGHTN'T,ADMIRE,ANOTHER,YOU,DIDN'T,KNOW,THEM
1268 DATA FAMILY,CAN'T,PROTECT,US,WE,CAN,DENY,IT
1270 DATA CHILD,MAY,DESPISE,MONEY,SUPERIOR,COULD,ACCEPT,HIM
1275 GETA$:IFA$<>""THEN10
1280 FORI=1TO1500:NEXT:GOTO1256
1300 PRINT"[147]C R A Z Y"
1310 PRINT"PRESS ANY KEY TO RETURN TO MENU"
1320 A=INT(RND(1)*255+1):PRINT""+CHR$(A);:PRINTCHR$(142);
1322 GETA$:IFA$<>""THEN10
1324 C=INT(RND(1)*16+1):D=INT(RND(1)*16+1)
1325 X=INT(RND(1)*5+1):IFX=1THENPRINT"[157][157][157][157][157][157][148][148][148][148][148][148][148][148][148][148][148][148][157][157][157][157]^"
1326 POKE53280,C:POKE53281,D:POKE53280,12:POKE53281,11
1327 IF X=1THENPOKE53296,1:POKE53296,0
1328 GOTO1320
1350 PRINT"[147]E S P":FORI=1TO1000:NEXT
1360 GETA$:IFA$<>"/"THEN1370
1362 PRINT"[153]HELLO FRIEND! PRESS X TO EXIT!"
1364 GETA$:IFA$="X"THEN10
1365 GOTO 1364
1370 PRINT"[150]BEGONE! I DO NOT KNOW YOU!"
1380 FORI=1TO1000:NEXT:GOTO10